home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Panorama.dxr / 00081.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  1.1 KB  |  33 lines
  1. global gqtvrinstance, nodepict, nodeplan, hiliterect, contentsprite, ghotlist, gactslist, returnlist, copyrectlist, masternodeleftpos, masternodetoppos, masternode, masterangle
  2.  
  3. on exitFrame
  4.   setreturnframe()
  5.   mycontrolinit()
  6.   initglobals()
  7.   set newarea to rect(masternodeleftpos, masternodetoppos, masternodeleftpos + 6, masternodetoppos + 5)
  8.   set the rect of sprite nodepict to newarea
  9.   if (getProp(returnlist, #flag) = 1) and ((getProp(returnlist, #roomnumber) <> 204) or (getProp(returnlist, #nodeid) <> 4)) then
  10.     set nodeid to getProp(returnlist, #nodeid)
  11.     set r to getAt(copyrectlist, nodeid)
  12.     set hoff to the left of sprite nodeplan
  13.     set voff to the top of sprite nodeplan
  14.     spriteBox(nodepict, getAt(r, 1) + hoff, getAt(r, 2) + voff, getAt(r, 3) + hoff, getAt(r, 4) + voff)
  15.     jumptonode(nodeid)
  16.   else
  17.     jumptonode(masternode, masterangle)
  18.   end if
  19.   qtvrsetvisible(gqtvrinstance, 1)
  20. end
  21.  
  22. on mycontrolinit
  23.   set contentsprite to nodeplan
  24.   set hiliterect to 109
  25.   initcontrols()
  26.   installcontrol()
  27. end
  28.  
  29. on initglobals
  30.   set ghotlist to []
  31.   set gactslist to []
  32. end
  33.